home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / mmlc / sample2.m2 < prev    next >
Text File  |  1995-02-07  |  1KB  |  74 lines
  1. /*
  2.   THUNDER  
  3.   MML compiler [M2] test program 2
  4. */
  5.  
  6. // 曲っていうほどのものではありません
  7.  
  8. .title THUNDER
  9. .copyright YamaSHiN
  10.  
  11. .division 48
  12. .tempo 120
  13. .signature 4/4
  14.  
  15. .begin
  16.  
  17. // ---------------------------------------------------
  18. /*
  19. ・バンクセレクトはＣＴＲＬ番号０と３２を同時にセット
  20. ・以下のようにすこしずらしてセットするのがよい
  21. ・ＧＳリセットの直後にはウエイトが必要
  22. */
  23.  
  24. SetUp
  25. {
  26. 16[0]=@x[4110421240007f0041]; /* GSreset */
  27.  1[0]=r2 @94 V13;
  28.  2[0]=r2 r64 @3 V13;
  29.  3[0]=r2 r48 @C0/3 @C32/0 r8 @123 V14;
  30.  4[0]=r2 r32 @C0/2 @C32/0 r8 @123 V15;
  31.  5[0]=r2 r24 @C0/1 @C32/0 r8 @123 V14;
  32. 10[0]=r2 r16 @17 V14;
  33. 10[0]=r1; /* dummy wait */
  34. }
  35.  
  36. //  ---------------------------------------------------
  37.  
  38. Intro
  39. {
  40.  3[0]=O4 r1^1c1^1;
  41.  4[0]=O4 r1c1r1c1;
  42.  5[0]=O4 c1^1^1^1;
  43. 10[0]=O2 r1^1^1 r2 L16 cddddddd;
  44. }
  45.  
  46. //  ---------------------------------------------------
  47.  
  48. #for 5
  49.  
  50. MainSection
  51. {
  52.  1[0]=L1O4Q8 (g|b|>d<) (f|a|>c<);
  53.  2[0]=O4Q4
  54.       (g8|b8|d8) (g8|b8|d8) r4 (g8.|b8.|d8.)
  55.       (g8|b8|d8) (g16|b16|d16) (g16|b16|d16)r16
  56.       (f8|a8|c8) (f8|a8|c8) r4 (f8.|a8.|c8.)
  57.       (f8|a8|c8) (f16|a16|c16) (f16|a16|c16)r16;
  58.  3[0]=O4Q8 c1c1;
  59.  4[0]=O4Q8 c1r1;
  60.  5[0]=O4Q8 c1^1;
  61. 10[0]=O2Q4L8  $(crdc16r16r16c16rdr)2;
  62. 10[1]=O2Q4L16 $(f+f+f+f+ f+f+f+f+ f+f+f+f+ f+f+f+a+)2;
  63. }
  64.  
  65. #next
  66.  
  67. // ---------------------------------------------------
  68.  
  69. Ending
  70. {
  71.  2[0]=@56 (g8|b8|d8)>(c8|e8|g8)<(e8|g8|b8)>(c8|e8|g8);
  72. }
  73.  
  74.